﻿Public Class KOSanjuro
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "SANJURO"
        Armee = Armeen.GS.ToString
        Musik = "Sanjuro"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
                Gaben(1) = Gaben(0)
            Case CommanderWarsGameModi.AdvanceWars2
                Sternkosten = 1000
                Gabekosten = 2
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDS
                Sternkosten = 1000
                Gabekosten = 2
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 2
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 3
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        GeldFuerEigenSchaden = 0.4#
        If OhneFunktion = False Then
            AnimationEigene("TamiGabe", 2)
        End If
        GabeEingesetzt()
    End Sub

    Public Overrides Sub KOLaden()
        ATKundKostensteigererfuerFonds = New Point(2, 1)
        GeldFuerEigenSchaden = 0
        KeinAngriffmitBilligerenTruppen = False
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWars Then
            KeinAngriffmitBilligerenTruppen = True
            If OhneFunktion = False Then
                BackbufferSpiel.AddAnimation("SCREENFLASH", 0, New Point, True, ObjektSpielfeld.TopLayer)
            End If
            GabeEingesetzt()
        Else
            KeinAngriffmitBilligerenTruppen = True
            If OhneFunktion = False Then
                BackbufferSpiel.AddAnimation("SCREENFLASH", 0, New Point, True, ObjektSpielfeld.TopLayer)
            End If
            GabeEingesetzt()
        End If
    End Sub

    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class

Public Class KOBeschreibungSanjuro
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Sanjuro"
        Fein = "Ehrliche Arbeit"
        Nein = "Heulsusen"
        Beschreibung = New String() {"Sanjuro ist ein erfahrener", "KO von Gold Sun. Er kaempft", "auf wirtschaftlicher und militaerischer", "Basis."}
        Stil = New String() {"Seine Truppenstaerke und seine", "Truppenkosten, haengen vom ", "Verhaeltnis, seines Einkommens zu", "seinen Fonds ab."}
        Gabebeschreibung = New String() {"Er erhaelt Geld fuer jeden Schaden,", "denn seine Truppen erleiden."}
        SpezialgabeBeschreibung = New String() {"Truppen die weniger Kosten,", "wie seine Eigenen koennen", "nicht angreifen."}
        GabeKosten = 2
        Spezialgabekosten = 4
        Gaben = New String() {"Herz aus Gold", "Vergoldetes Schwert"}
        Synergie = New Decimal() {1, 2, 1.5#, 1, 1, -2, -1.5#, -1, -1, -1, -1, -1}
        KONamen = New String() {"MINAMOTO", "HACHI", "JAVIER", "KANBEI", "SASHA", "VARLOT", "GRAVES", "ERIC", "EDWARD", "CARMEN", "MARY"}
        Doppelgabenamen = New String() {"Roemische Macht", "Riskante Geschaefte", "Fahrende Ritter", "Samurai Stahl", "Bankueberfall", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe"}
        Gabesaetze = New String() {"Meine Faehigkeiten sind teuer und jeden Penny wert!" _
                                  , "Ihr seid umzingelt. Ergebt euch!" _
                                  , "Krieg ist meine Leidenschaft. Kannst du mit meiner Erfahrung mithalten?" _
                                  , "Ich bin fuer den Kampf geboren. Ich kenne keine Grenzen." _
                                  , "Wenn du denkst das ist nur eine Arbeit. Denk nochmal nach das Schlachtfeld ruft mich!"}
        Siegsaetze = New String() {"Ich habe einen Ruf zu verteidigen." _
                                , "Einen weiteren Job erledigt... Wo ist der naechste Kampf." _
                                , "Hast du etwas anderes von einem erfahrenen Soeldner erwartet?"}
        Tauschsaetze = New String() {"Zeit meinen Lohn zu verdienen..." _
                                    , "Lass uns zum Geschaeft kommen."}
        Doppelgabesaetze = New DoppelGabesatz() {New DoppelGabesatz("MINAMOTO", "SANJURO", "Vini, vidi, vici.", "Alea iacta est!") _
                                              , New DoppelGabesatz("SANJURO", "MINAMOTO", "Latein ist eine tote Sprache!", "Aber wir leben noch.") _
                                              , New DoppelGabesatz("SANJURO", "HACHI", "Hier kann man ein huebsches Suemmchen verdienen.", "Ha! Ha! So gefaellt mir das.") _
                                              , New DoppelGabesatz("HACHI", "SANJURO", "Ihr werdet sehen es kommt nur auf Geschaeftsbeziehungen an!", "Geld regiert die Welt und nichts anderes!") _
                                              , New DoppelGabesatz("SANJURO", "JAVIER", "Meine Klinge ist Scharf.", "Lass uns einen Uebungskampf machen.") _
                                              , New DoppelGabesatz("JAVIER", "SANJURO", "Nimm das! Noch ein treffer.", "Du liegst trotzdem noch hinter mir!") _
                                              , New DoppelGabesatz("SANJURO", "KANBEI", "Rom ist eine Weltmacht.", "Aber nur im Westen im Osten sind wir! Spuert die Macht dieses Buendnisses.") _
                                              , New DoppelGabesatz("KANBEI", "SANJURO", "Warum hast du Yellow Comet verlassen?", "Ich brauchte neue Herausforderungen und die haben wir jetzt.") _
                                              , New DoppelGabesatz("SANJURO", "SASHA", "Wenn ihr uns euer Geld gebt...", "koennten wir euch verschonen.") _
                                              , New DoppelGabesatz("SASHA", "SANJURO", "Erzittert vor der Macht des Geldes..", "und vor meiner Klinge.")}
        Niederlagesaetze = New String() {"So muss es den Roemern auch ergangen sein.", _
                                        "Dafuer bezahlt man mir zu wenig."}
    End Sub
End Class
